10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFPEEK(49152)<>32ANDA=0THENA=1:LOAD"DINPUT",8,1
30 REM PUT LINE 20 AT THE BEGINNING OF YOUR PROGRAM
40 POKE53280,11:POKE53281,0:B$=CHR$(13):GOSUB 530:PRINT"[147][159]
50 [153][163]12)"LENOPYRIGHT 1989"
60 [153][163]7)"LEN(null)(null)(null)(null)(null)VAL! (null)UBLICATIONS, RIGHT$NC."
70 [153][163]10)"ATNLL (null)IGHTS (null)ESERVED"
80 L[178]20:R[178]0:FL[178]20:BL[178]0:BX[178]255:CS[178]0
90 [153]"STR$VAL(null)(null)(null)VAL RIGHT$(null)(null)(null)(null) CAN ADD QUITE A BIT OF"
100 [153]"SPICE TO YOUR PROGRAMS.  RIGHT$T ALSO ALLOWS"
110 [153]"A MUCH BETTER WAY TO INPUT DATA FROM "
120 [153]"THE KEYBOARD.  RIGHT$TS FUNCTIONS INCLUDE:OPEN"
130 [153]:[153]"RIGHT$. STR$EFINING THE MAXIMUM LENGTH OF THE"
140 [153]"    INPUT FIELD (EX. 5 CHARS.)   :";:L[178]5:[141]510
150 [153]:[153]"RIGHT$RIGHT$. (null)EVERSING THE INPUT FIELD    :";:R[178]1:[141]510
160 [153]:[153]"RIGHT$RIGHT$RIGHT$. ASCLASHING THE CURSOR FASTER  :";:FL[178]10:[141]510
170 [153]:[153]"RIGHT$(null). ATN BELL AT THE END OF INPUT   :";:BL[178]1:[141]510
180 [153]:[153]"(null). (null)UTTING A PEEK(null)(null)STR$VAL(null) AROUND INPUT:";:BX[178]1:[141]510
190 [153]"ONON      (NOTICE THE BORDER DISAPPEARS!)OPEN"
200 [153]:[153]"(null)RIGHT$. ATNLLOWING-"
210 [153]"ATNLL LENHARACTERS      ";:CS[178]0:BX[178]255:L[178]9:[141]510
220 [153]"(null)UMBERS (null)NLY        ";:CS[178]1:[141]510
230 [153]"(null)ETTERS (null)NLY        ";:CS[178]2:[141]510
236 [153]"(null)ETTERS & (null)UMBERS   ";:CS[178]3:[141]510
238 [153]"(null)HIFTS TO (null)PPERCASE ";:CS[178]4:[141]510
240 CS[178]0:L[178]3:BX[178]4:R[178]0:FL[178]255
250 [153]:[153]"RIGHT$T ALSO ALLOWS A PROMPT TO BE PUT IN"
260 [153]"THE FIELD (AND THE CURSOR CAN BE A "
270 [153]"BLOCK, TOO!)"
280 [153]"STR$O YOU WISH TO CONTINUE? ";:A$[178]"(null)ES":[141]520
290 [139]A$[178]"N"[176]A$[178]"(null)O"[167][153]"(null)F COURSE YOU DO!OPEN"
300 [153]:[153]"RIGHT$F THE LENGTH = 0, A FANCY 'CHR$VAL(null)' "
310 [153]"STATEMENT RESULTS....."
320 [153]:[153]"(null)RESS (null)ETURN...OPEN";:BL[178]0:BX[178]255:L[178]0:R[178]0:FL[178]10:[141]510
330 [153]:[153]"STR$VAL(null)(null)(null)VAL RIGHT$(null)(null)(null)(null)OPEN WILL ALSO ALLOW"
340 [153]"'ILLEGAL' CHARACTERS SUCH AS QUOTES,"
350 [153]"COMMAS, AND COLONS:";
360 L[178]10:BL[178]1:FL[178]5:R[178]1:A$[178][199](34)[170][199](34)[170]",,,:::":[141]520
370 [153]:[153]"(null)OU CAN ALSO CHANGE WHICH CHARACTERS"
380 [153]"EXIT INPUT..ATNLL THE ASCUNCTION (null)EYS WILL"
390 [153]"EXIT, BUT (null)VAL(null)(null)(null)(null) WILL NOT.)"
400 B$[178]"INPUTGOTODIMRUNREADIFLETRESTORE":[141]530
410 FL[178]20:BX[178]3:[141]510
420 [153]"STR$VAL(null)(null)(null)VAL RIGHT$(null)(null)(null)(null) OPENCAN EVEN TELL WHICH"
430 [153]"CHARACTER WAS USED TO EXIT..."
440 [153]"(null)OU USED LENLEFT$(null)$("[198](B$)") TO EXIT."
450 B$[178][199](13):[141]530
460 [153]:[153]"(null)IRTUALLY ALL OF THESE USEFUL FUNCTIONS"
470 [153]"ARE AVAILABLE WITHOUT (null)(null)(null)VALS. (null)OU JUST"
480 [153]"USE THE SIMPLE COMMAND FORM:"
490 [153]:[153]"(null)(null)(null)49152,ATN$,PEEK$,(null)IMIT,(null)(null)(null),LENUR(null)PEED,PEEKELL, PEEKOX,LENASE"
500 [153]"OPEN":[128]
510 A$[178]""
520 [153]"SYS";:[158]49152,A$,B$,L,R,FL,BL,BX,CS:[153]"OPEN";:[142]
530 [151]49919,[195](B$):[129]X[178]1[164][195](B$):[151]49919[170]X,[198]([202](B$,X,1))
540 [130]:[142]
550 [151]782,X:[151]781,Y:[158]65520:[142]